|>$.SparkFS.!SparkFS.!Run
|
| Startup file for SparkFS
|
IconSprites <Obey$Dir>.!Sprites
|
Set Alias$@RunType_DDC SparkFSFiler_OpenDir %%*0
Set Alias$@RunType_C46 SparkFSFiler_OpenDir %%*0
Set Alias$@RunType_68E SparkFSFiler_OpenDir %%*0
Set Alias$@RunType_ABF SparkFSFiler_OpenDir %%*0
Set Alias$@RunType_ABA SparkFSFiler_OpenDir %%*0
Set File$Type_DDC Archive
Set File$Type_C46 Tar
Set File$Type_68E PackdDir
Set File$Type_ABF Cabinet
Set File$Type_ABA CPIO
|
|
WimpSlot -min 128K -max 128K
|
SetMacro Alias$RunSparkFS SparkFSFiler_OpenDir <Obey$Dir>
|
|
SetEval SparkFS$Memory -2
RMEnsure UtilityModule 3.50 SetEval SparkFS$Memory -1
|SetEval SparkFS$Memory &40000
|
|
If "<System$Path>" = "" then Error 0 System resources cannot be found
|
RMEnsure SharedCLibrary 0.00 RMLoad System:Modules.CLib
RMEnsure SharedCLibrary 3.75 Error You need SharedCLibrary 3.75 or later
|
Set SparkFS$Dir     <Obey$Dir>
|
|
If "<InetDBase$Path>" <> "" Then If "<Inet$MimeMappings>" = "" Then <SparkFS$Dir>.Resources.IfExists InetDBase:Mimemap Then Set Inet$MimeMappings InetDBase:Mimemap
|
RMEnsure MimeMap 0.05 If "<Inet$MimeMappings>" <> "" Then <SparkFS$Dir>.Resources.IfExists System:Modules.Network.MimeMap Then RMLoad System:Modules.Network.MimeMap
|
|
Run <SparkFS$Dir>.Resources.Resfind SparkFS
Set SparkFS$Templates Templates
|
WimpSlot -min 128K
|
RMEnsure UtilityModule 3.60 RMEnsure SparkFS 1.36 Run <SparkFS$Dir>.Resources.UK.SparkFS
RMEnsure SparkFS 1.36 Run <SparkFS$Dir>.Resources.SparkFS
|
| Uncomment the next line to enable RISC OS 3 image filing system support
SparkFSImage 1
|
| Uncomment the next line to make image files look like applications
RMEnsure ImageFSFix 0.05 Run <SparkFS$Dir>.Resources.ImageFSFix
|
SparkFSTruncate 255
|
SparkFSBuffers  32
|
SparkFSImageTimeout 5
|
| Change the 0 to a 1 in the next line to allow SparkFS to cache changes to archives
SparkFSCache 0
|
|
| Map ArcFS to filetype 0x3FB - uncomment the next three lines
| (see also !Boot and AtExit files).
| SparkFSMapFiletype 0x8 0x3FB
| Set Alias$@RunType_3FB SparkFSFiler_OpenDir %%*0
| Set File$Type_3FB ArcFSArc
|
|
Set Spark$Template <SparkFSRes$Dir>.Temp
|
SparkFSAtExit <Obey$Dir>.Config.AtExit
|
Run "<SparkFS$Dir>.!RunImage" %*0
